Top 10k strings from Video Basic - Issue 15 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
5 "4";"ESTA BIEN ESCRITO ? (S/N)";
5 "23606",z:
5 "10",z;" PARA LA GRABADORA ":
5 *
4 t$=" PULSA UNA TECLA PARA CONTINUAR "
4 t$(2)-48":
4 U;" ";N$;" "
4 A$="PON EN MARCHA LA GRABADORA":
4 "9",N;" ~|";
4 "8",N;A$(N-2
4 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
4 "10",N;" \]"
4 PASO A LA PARTE";
3 t$(3)-48":
3 b$=" ":
3 T$=" ELIGE, "+n$+":":
3 "28"-J/A,ER+J/A*.7
3 "126-XL/2",
3 "10-a/2",U;
3 "(21-YP)*8-2":
3
2 t$(u+u)-48":
2 t$(u)="<":
2 t$(3)-48)*4+2":
2 t$(2)-48)*8+2":
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 Via Indipendenza 88
2 SIGUIENTE"
2 LETREROS ROTATORIOS
2 LETREROS ENTRANTES
2 LEE LOS UDG
2 L$="QUIERES VERLO DE NUEVO (S/N) ?":
2 HOMBRECILLO
2 ?88888$$$$$$$$$$$$$$$$$$$$
2 ;"VIDEOBASIC":
2 ;" ""5""
2 ;" PARA LA GRABADORA ":
2 ,XX;" ";
2 "xg+xs/2",yg+ys*
2 "BIEN, "+N$+"
2 "6";" SIGUIENTE"
2 "23296"+N,
2 VUELTA AL PRINCIPIO";
2 SOFTIDEA (Como)
2 * * * *
2 Tel.031-240.959
2 "' "
2 PARA LA GRABADORA
2 "' "
2
2
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 y(n)=y(n+1
1 y$="32132121216"
1 y$=" PULSA UNA TECLA PARA CONTINUAR ":
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 x$="11114331101":
1 uUUUUUUUUUUUUUX
1 u;"comprendido entre SIN COS TAN",
1 u;"X=";a$,"Y=";t$,:
1 u;"EXACTO !":
1 u;"A:ANGULO I:VAR.CON."
1 u;" VALOR NO ACEPTABLE ",:
1 u;" ANGULO RAD valor de ",
1 u;" PULSA <E> PARA TERMINAR",:
1 u+u;"ESTRACTO",,''
1 t$="PROLONGANDO EL RADIO HASTA LATANGENTE DEL CIRCULO PARALELAAL EJE <Y>...":
1 t$="OBTENDREMOS UNA NUEVA DISTAN-CIA QUE DENOMINAREMOS <TANGEN-TE DEL ANGULO A>, SIENDO ESTALA RELACION ENTRE SENO Y COSE-NO.":
1 t$="EXISTEN TAMBIEN LAS FUNCIONESINVERSAS <ASN> <ACS> Y <ATN>,QUE PERMITEN OBTENER EL ANGULODISPONIENDO RESPECTIVAMENTEDEL SENO, COSENO O TANGENTE.":
1 t$="EL ANGULO QUE SE OBTIENE U-NIENDO LOS EXTREMOS DEL ARCOCON EL CENTRO,TIENE UNA AMPLI-TUD DE <A> RADIANES.":
1 t$="DEL EJEMPLO ANTERIOR PODEMOSDEDUCIR QUE LAS FUNCIONES TRI-GONOMETRICAS TOMAN VALORES PO-SITIVOS O NEGATIVOS, SEGUN ELANGULO ELEGIDO COMO ARGUMENTO:":
1 t$="...Y LA HIPOTENUSA:":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48",
1 t$(2)-48";
1 p;" ":
1 p;" ":
1 p$="por el usuario ":
1 p$="los temas de la leccion ":
1 p$="de los Programas ":
1 p$="Verano ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBREAK: ":
1 p$="VIDEOBREAK ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="Misiles de Profundidad ":
1 p$="Mantenimiento/Inconvenientes":
1 p$="Las Funciones Definidas ":
1 p$="Juego de adivinanzas sobre ":
1 p$="Interpretes y Compiladores ":
1 p$="Hardware ":
1 p$="Go ":
1 p$="Funciones Trigonometricas ":
1 p$="En el proximo numero... ":
1 p$="El Modem * Las Redes Locales":
1 p$="DefFn Exp Ln ":
1 p$="Blokmen ":
1 p$="Analisis y Estructura ":
1 nnnnnnnhhhhhhhhhhhhhhhhhhhhhhhhhnnnnnnnhnnnnnnnnnnnnnnnnnnnnnnnhnnnnnnnhnnnhhhhnnnnnnnnnnnnnnhhhnnnnnnnhnnnhhhhhhhhhhhhhhhhhhhhhnnnnnnnhnnjjjhjjjjjjjjjjjjjjhjjhoooooooooooooooooooooooooooohooooooooooooooooooooooooooooooohhhhoooooooooooooooooooooooooooohhhhoooooooooooooooooooooooooooohhhhoooooooooooooooooooookkkkkoohhhhjnnnnnnnnnnnnnnnnnnnkkkkkkkkkkkk
1 n;"0 = FACIL 9 = DIFICIL"
1 n;" ":
1 l$="VARIOS SPECTRUM PUEDEN ESTARCOMUNICADOS ENTRE ELLOS, FOR-MANDO ASI UNA RED LOCAL."
1 l$="LA VELOCIDAD DE TRANSMISIONESTA COMPRENDIDA ENTRE 110 Y1200 BAUDIOS."
1 l$=" EJEMPLO DE RED LOCAL ":
1 drive impres.":
1 copy=23760
1 b$=b$+(w$(j)
1 b$="ASZXPLaszxpl"
1 attr=23813
1 a;" ":
1 a$="LA PROGRAMACION":
1 a$=" ":
1 YY,XX;" ";
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
1 Y$="*PULSA UNA TECLA PARA CONTINUAR *"
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 Y AHORA... APUNTA BIEN Y HUNDEAL SUBMARINO !":
1 X<21)+(30-X)*(X>20)"):
1 X,Y;T$(N):
1 VISUALIZACION BLOQUE
1 VIDEOTEST
1 VIDEONEXT
1 VIDEOLIST
1 VIDEOBREAK
1 VIDEOBASIC N.15
1 VEAMOS POR EJEMPLO EL PROGRAMADE PUESTA AL DIA. NECESITAMOS:& &1) PRESENTAR UNA PAGINA INI-CIAL FORMADA POR LOS ULTIMOSMOVIMIENTOS INTRODUCIDOS; 2) DISPONER DE LA FUNCION<ROLL> (PAGINA ADELANTE Y A-TRAS); 3) REUNIR/ BORRAR/ MODIFICARLOS MOVIMIENTOS SEGUN LAS NE-CESIDADES; 4)COMPROBAR SI SON VALIDOS LOSDATOS INTRODUCIDOS; 5) MANTENER AL DIA LA PAGINADE PANTALLA.# #EL PROGRAMA ESTA PRACTICAMENTETERMINADO, PERO LAS EXPRE-SIONES <PIDE OPCION>, <IMPRIMEPAGINA> ETC., NO SON INSTRU-CIONES VALIDAS EN <BASIC>, NIEN NINGUN OTRO LENGUAJE, SINEMBARGO DEFINEN PERFECTAMENTECADA FUNCION LOGICA; EN LAPRACTICA HEMOS REALIZADO UNA<SEUDOCODIFICACION>. EL HECHO DE QUE EL ORDENADORNO ACEPTE ESTAS INSTRUCCIONES,SE PUEDE SUPERAR FACILMENTECOMO VEREMOS MAS ADELANTE.% % CONSIDEREMOS AHORA UN BLOQUECUALQUIERA: POR EJEMPLO <IM-PR
1 UUUUUUUUUUUUp
1 UUUUUUUUUUUUUP
1 UUUUUUUUUUU
1 USA EL MODEM UNA TECNICA DETRANSMISION ESTANDAR SI
1 UDG
1 U;"OTRA VEZ..":
1 U;"OTRA VEZ !":
1 U;"ESTA ES LA INSTRUCCION EXACTA:":
1 U;"ERROR !":
1 U;"Asi podemos plantear el formatode los registros del archivo:",
1 U;" DESCRIP "
1 U;" ";t$:
1 U+U;"TOTALES",,''
1 U+U;"PREGUNTA",,
1 U+U,XP;A$;
1 TRANSMISION BIDIRECCIONAL PORLINEA TELEFONICA FULL DUPLEX
1 TRANSFORMAREMOS EL ANALISISANTERIOR EN UN DIAGRAMA DEFLUJO Y DESPUES A INSTRUCCIO-NES <BASIC>.",""
1 TABLA.TEST
1 TAB.LENG3
1 TAB.LENG2
1 T$="Y HE AQUI COMO SE PUEDEN OBTE-NER LOS CATETOS DE UN TRIANGU-LO RECTANGULO:":
1 T$="VEAMOS EL ORIGEN DE LAS FUN-CIONES FUNDAMENTALES:":
1 T$="SI UN PUNTO RECORRE UN ARCO DELONGITUD <A>...":
1 T$="QUIZAS SEA MEJOR QUE VUELVAS ALEER EL PROGRAMA Y LO INTENTESDE NUEVO.":
1 T$="POR TANTO ES NECESARIO ENCON-TRAR UN ARGUMENTO EXPRESADO ENRADIANES, Y NO EN GRADOS SEXA-DECIMALES. LA CONVERSION ENTRELAS DOS UNIDADES DE MEDIDA ESSENCILLA:":
1 T$="LAS FUNCIONES QUE HEMOS VISTOANTERIORMENTE NO ESTAN EXPRE-SADAS EN UNIDADES LINEALES,SINO COMO RELACIONES RESPECTOAL RADIO DEL CIRCULO IDEAL RE-CORRIDO POR UN PUNTO.":
1 T$="LA TRIGONOMETRIA ES LA PARTEDE LAS MATEMATICAS QUE, PAR-TIENDO DEL COMPORTAMIENTO DEUN PUNTO QUE RECORRE UNA CIR-CUNFERENCIA, ANALIZA LAS RELA-CIONES QUE EXISTEN ENTRE LOSLADOS Y LOS ANGULOS DE UNTRIANGULO.":
1 T$="LA DISTANCIA ENTRE EL PUNTO YEL EJE <Y>, SIEMPRE REFERIDAAL RADIO, SE DENOMINA <COSENODEL ANGULO A>.":
1 T$="LA DISTANCIA DEL PUNTO RESPEC-TO AL EJE <X>, REFERIDA AL RA-DIO DEL CIRCULO, SE DENOMINA<SENO DEL ANGULO A>.":
1 T$="INTENTA ESCRIBIR LAS INSTRUC-CIONES QUE TE VAYA PIDIENDO,ESTOY SEGURO DE QUE NO TENDRASGRANDES DIFICULTADES.":
1 T$="EN ESTA LECCION SOLO PODREMOSESTUDIAR ALGUNAS NOCIONES ELE-MENTALES DE TRIGONOMETRIA, YAQUE SUS APLICACIONES ABARCANUN GRAN NUMERO DE CAMPOS.":
1 T$="ELIGE, "+N$+":":
1 T$="BIEN, "+N$+"
1 T$="AHORA, "+N$+"":
1 T$=" ELIGE, "+N$+":":
1 SOFTIDEA (Como)
1 SCROLL=23828
1 S$=" ":
1 RUTINA MAQUINA DE ESCRIBIR
1 RP","IMPRIME EL SENO DEL ANGULO","QUE TIENE POR TANGENTE <RP>",""
1 REGISTRO DEL NOMBRE
1 PROGRAMA
1 PORTADA T
1 PERMITE CALCULAR LA TANGENTEDE UN ANGULO TAN
1 PANTALLA
1 P=P-(P>M):
1 P$="VIDEONEXT":
1 P$="VIDEOLIST":
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$=" en el numero 16 ":
1 O,i;A$(i-2
1 N$=N$+" ":
1 M-15347-1985
1 La profundidad viene dada por:<dist*TAN ang>.","",""
1 LOS ORDENADORES QUE SE COMUNI-CAN ENTRE SI CONSTITUYEN UNA RED LOCAL
1 LENGUAJE3
1 LENGUAJE2
1 LENGUAJE1 Y
1 LAS FUNCIONES TRIGONOMETRICASSE MIDEN EN ... RADIANES
1 LA VELOCIDAD DE DATOS SE MIDEEN... BAUDIOS
1 L$="Y OTRO PARA LA TRANSMISION,QUE DIRIGE UN ALTAVOZ (EAR)."
1 L$="UNA RED LOCAL DE ESTE TIPOPUEDE SER UTIL PARA REALIZARUN LABORATORIO DE INFORMATICA,O PARA PONER EN RELACION A LOSINQUILINOS DE UN INMUEBLE CONLA PORTERIA."
1 L$="TAMBIEN A TRAVES DE UN MODEMSE PUEDEN TRANSMITIR DATOS EN-TRE DISTINTOS ORDENANDORES, ALEMPLEARSE TECNICAS DE TRANSMI-SION ESTANDAR."
1 L$="PERO VEAMOS AHORA DE QUE ESTACOMPUESTO UN MODEM. EN SU IN-TERIOR HAY DOS CIRCUITOS ELEC-TRONICOS: UNO PARA LA RECEP-CION DE SONIDOS CON UN MICRO-FONO,":
1 L$="PARA REALIZAR UNA TRANSMISIONDE DATOS CON EL SPECTRUM, ESNECESARIO DOTAR AL ORDENADORDE UN RS232 PARA LA CONVERSIONDE BYTES DE PARALELO"
1 L$="ESTO ES POSIBLE GRACIAS AL""INTERFACE 1""."
1 L$="ESTE APARATO PERMITE LA COMU-NICACION ENTRE DOS ORDENADORESPOR LA LINEA TELEFONICA,"
1 L$="EL METODO DE TRANSMISION DEDATOS ES DE TIPO SERIE SINCRO-NO, POR LO QUE LA CONEXION EN-TRE VARIOS SPECTRUM ES SUMA-MENTE SENCILLA."
1 L$="EL DIBUJO MUESTRA COMO SON LAMAYORIA DE LOS ACOPLADORES A-CUSTICOS, QUE POR RAZONES DEBREVEDAD LLAMAREMOS MODEM DEMOdulador-DEModulador."
1 L$="DEL ORDENADOR EN SIGNOS ANALO-GICOS Y VICEVERSA."
1 L$="DE ESTA MANERA SE PUEDE ACCE-DER TAMBIEN CON UN SPECTRUM, ALOS BANCOS DE DATOS."
1 L$="CONVIERTE LOS DIGITOS PROVE-NIENTES DEL INTERFACE CONTRO-LADO"
1 L$="CON ESTA CONEXION PUEDEN UNIR-SE HASTA 64 SPECTRUM, CADA UNODE LOS CUALES PUEDE ACCEDER,MEDIANTE INSTRUCCIONES ADECUA-DAS, A LOS PERIFERICOS DE LOSDEMAS.":
1 L$="A SERIE, Y TAMBIEN UN SOFTWAREADECUADO PARA EL MODEM."
1 JUEGO
1 INGELEK JAKSON
1 I","04B FIN ","#813"
1 HAS ESCRITO UN PROGRAMA QUE AUNQUE ES UN JUEGO, USA FUNCIONES FUNDAMENTALES EN EL CAMPO CIENTIFICO: LAS FUNCIONES TRIGONOMETRICAS."
1 HARD E
1 FUNCION INVERSA DE LA TANGENTE ATN
1 FUNCION TRIGONOMETRICA PARACALCULAR EL SENO DE UN ANGULO SIN
1 EJERCICIOS
1 CONECTA DOS ORDENADORES A TRA-VES DE LA LINEA TELEFONICA MODEM
1 CC-AA,DD-BB,EE:
1 CAR TEST
1 CAR PROG
1 CAR NEXT
1 CAR LIST
1 CAR LENG3
1 CAR LENG2
1 CAR LENG1
1 CAR HARD
1 CAR EJER.
1 CALCULA EL VALOR DEL COSENO DEUN ANGULO COS
1 BREAK UDG
1 BIEN, YA CONOCES LA MAYOR PARTE DELAS INSTRUCCIONES <BASIC>, YSABES ESCRIBIR PROGRAMAS SEN-CILLOS DE LOS TEMAS MAS DISPA-RES.% %PIENSO QUE PUEDEN SERTE UTILESA PARTIR DE AHORA, ALGUNAS NO-CIONES DE ANALISIS Y ESTRUCTU-RA QUE TE PERMITAN UTILIZARMAS ANALITICAMENTE LOS CONOCI-MIENTOS QUE POSEES. PERO NO TE PREOCUPES ! TAMPOCO ESTA VEZ SERA ...MUYDIFICIL ! COMO ES FACIL INTUIR,A UN CAR-PINTERO NO LE BASTA SABER CE-PILLAR Y ASERRAR PARA CONS-TRUIR UN ARMARIO, LO MISMO QUEA UN PROGRAMADOR NO LE BASTAEL SIMPLE CONOCIMIENTO TECNICODE LAS INSTRUCCIONES,PARA PRE-PARAR UNA APLICACION DE CIERTACOMPLEJIDAD.% % SI BIEN LOS PRIMEROS EXITOSOBTENIDOS CON EL ORDENADOR,IN-DUCEN A LANZARSE CON ENTUSIAS-MO SOBRE EL TECLADO ANTES IN-CLUSO DE HABER DEFINIDO LO QUESE DESEA CONSEGUIR, UN PRINCI-PIO ASI SUELE CONDUCIR A TAN-TAS DIFICULTADES QUE NOS PUEDELLEVAR A RENUNCIAR AL PROYECTOO,
1 B$="------------"
1 A^2","IMPRIME EL CUADRADO","DEL COSENO DE <A>",""
1 ASZXPLaszxplA
1 ANTERIOR
1 AHORA INTENTA ESCRIBIR EL PRO-GRAMA A PARTIR DEL DIAGRAMA DEFLUJO.
1 ACUERDATE DE NUMERAR LAS LI-NEAS DE 10 EN 10, EMPEZANDOPOR EL 10."
1 AA,BB,CC,DD,EE:
1 A,I;"">""","02@FIN CICLO ?","<<13","2@60
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$="PON EN MARCHA LA GRABADORA ":
1 A$="ANALISIS ESTRUCTURA":
1 A$=" TRIGONOMETRIA":
1 A$=" FUNCIONES TRIGONOMETRICAS":
1 A","ASIGNA A <X> EL SENO","DEL ANGULO <A>",""
1 A continuacion se realiza laconversion en radianes.",""
1 ??8888$$$$$$$$$$$$$$$$$$$$
1 =SCROLL IZQUIERDA"'"
1 =SCROLL DERECHA"
1 =IZQUIERDA
1 =DERECHA"'"
1 =ARRIBA
1 ;N$;" ? (S/N)"
1 ;"y quita la alimentacion a tu";
1 ;"ejemplos y ejercicios";
1 ;"Y PULSA <ENTER>":
1 ;"VIDEOBASIC"
1 ;"VIDAS=";lv
1 ;"UN MOMENTO POR FAVOR"
1 ;"TU PUNTUACION ES ";s;" SOBRE 20."
1 ;"SPECTRUM. Hasta pronto,";
1 ;"RECORD=";hs;
1 ;"PROXIMO PROGRAMA";
1 ;"PREGUNTA N. ";w
1 ;"PARA MEJORAR, LEE";
1 ;"PARA LA GRABADORA":
1 ;"OTRA VEZ"
1 ;"NO TE PUEDO AYUDAR":
1 ;"NIVELES (0 --> 9)"''
1 ;"Muy bien, enhorabuena !"
1 ;"MUY BIEN ";n$;
1 ;"La respuesta correcta es:";
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"HASTA PRONTO":
1 ;"Guarda la cinta en su caja";
1 ;"ESPERA UN MOMENTO ";" CASI HE TER- MINADO !!";
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN ESTE NUMERO NOS OCUPAREMOS DELAS TECNICAS DE TRANSMISION DEDATOS ENTRE DOS O MAS ORDENANDO-RES.";
1 ;"EN EL TECLADO";
1 ;"> < > <"
1 ;"- - - - - -"''':
1 ;"""";i$;""" esta equivocado."
1 ;" PUNTOS!PUNTOS!PUNTOS!PUNTOS!":
1 ;" PON EN MARCHA LA GRABADORA ":
1 ;" AY!AY!AY!AY!AY!AY!AY!AY!AY!AY! "
1 ;" SIGUIENTE"
1 ;" PULSA UNA TECLA "
1 ;" PARA LA GRABADORA ";
1 ;" ESTA BIEN ESCRITO, ";
1 ;" B L O K M E N ";
1 ;" PULSA UNA TECLA CUANDO EL HOMBRECILLO APAREZCA SOBRE LA BANDERA"
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" NUEVO RECORD "
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ";
1 ;" ":
1 ;" ":
1 ;" ":
1 888888888888888888888888888888?888888888888888888888888888888???888888888888888888888888888888?8888888888888888888888888888888?8888888888888888888888888888888?888888888800008??????8000088?????8888888
1 8888888888888888888888888888888888888
1 8888888$$$$$$$$$$$$$$$$$$$$
1 5TRADUCCION
1 43 - FASE DE EJECUCION","IMPRIME LAS SUCESIVAS POSICIO-NES DEL TORPEDO",""
1 42711111111000000000000000022
1 4 F A S E 3","04;INICIAL.","04< CICLO ","#823","2;40
1 32132121216B
1 31","04>IMPRIME>","#813"
1 23688/2-U"
1 23688+x)>31"
1 22 - FASE DE PREPARACION"," PIDE LA TRAYECTORIA",""
1 2 F A S E 2 ","047INT.""G"" ","#813","2720
1 1;""*""","*1 "
1 11114331101Y
1 111111111111
1 111111111110022
1 111111100000000002
1 11 - FASE DE PREPARACION"," IMPRIME EL BLANCO",""
1 1 F A S E 1 ","043INICIO ","#810","045DISPARO ","#813","2410
1 000000000000000000000000000000000000000000000000000000000000000000000000001111111111111021100000000000000211111111111112211000000000000002222222222222222110000000000000022222222222222221100000000000000000000000000000000000000666666666600000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888E
1 /2","+","+","+","
1 ...................................
1 .
1 -J/A,ER+J/A*.7
1 ,n;"PUNTOS=";sc;" ";
1 ,n;"PULSA UNA TECLA (
1 ,n;"--------------------------------TECLAS DE CONTROL:"''"
1 ,n,b,b,b,b,b,b,b,124
1 ,b,b,b,b,b,b
1 ,XX;" ":
1 ,A;" ";
1 ,A;" ":
1 **AYUDA II INTENTO**
1 ***respuesta flash***
1 ***puntuacion***
1 ***prulsa una tecla***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS BAJO***
1 ***********************
1 ));q$(q,65
1 )","EL ANGULO <A> ESTA EXPRESADO "," EN GRADOS.IMPRIME SU TANGENTE",""
1 (j*6)","j*40 ","80+70*
1 (j*6)","86+43*
1 (2551-i*i)":
1 '''''''" PON EN MARCHA LA GRABADORA":
1 ''''"UN MOMENTO....":
1 ''''" PON EN MARCHA LA GRABADORA ":
1 '"////////////////////////////////";
1 "videobreak"
1 "u = s/COS A u = t/SIN A"
1 "t = u*SIN A s= u*COS A"
1 "t = u*COS C s= u*SIN C"
1 "t = s*TAN A s= t/TAN A"
1 "i*2+5",z;t$;
1 "Y AHORA ALGUNAS APLICACIONESTRIGONOMETRICAS Y... !! NO TEASUSTES !!!",""
1 "TIENES QUE HUNDIR UN SUBMARINO(QUE VERAS COMO UN (*) PARPA-DEANTE) EMPLEANDO UN TORPEDODE PROFUNDIDAD (QUE VERAS COMO(>), DEL QUE TIENES QUE ESTA-BLECER LA INCLINACION Y LATRAYECTORIA.",""
1 "Se pide el angulo de disparoen GRADOS.
1 "Se imprime el blanco (*) par-padeante en una linea cual-quiera (RND) de la columna 31.",""
1 "RESPUESTA = ";
1 "REG=REG. SOLICITADO N=NUM.REG"
1 "PRINT ASN 2","INSTRUCCION EQUIVOCADA: LOSARGUMENTOS DE <ASN> Y <ACS>DEBEN QUEDAR COMPRENDIDOS EN-TRE <-1> Y <+1>.",""
1 "PRINT 1-TAN(PI/4)","AUNQUE TAN (PI/4) SEA IGUAL A<1>, A CAUSA DE LOS REDONDEOSEN EL CALCULO, NO SE VISUALI-ZARA <0>, SINO 4.6566129E-10.",""
1 "PLOT R*COS A,S*SIN A","HACIENDO VARIAR EL ANGULO <A>SE OBTIENE UNA ELIPSE CUYOSRADIOS SERAN RESPECTIVAMENTE<R> Y <S>.",""
1 "OBSERVA TAMBIEN LOS MENSAJESINSERTADOS EN LOS <INPUT>.",""
1 "Las coordenadas de cada puntoconstituyen los catetos de untriangulo rectangulo.
1 "LET A=SIN (2*PI)","RECORRIENDO UNA LONGITUD DE2*PI*R, UN PUNTO DESCRIBE UNACIRCUNFERENCIA VOLVIENDO A LAPOSICION INICIAL. POR LO TANTO<A> EMPEZARA SIENDO <0>.",""
1 "ESTA VEZ EL PROGRAMA ES UN VI-DEOJUEGO, PERO NOS VALEMOS DEINSTRUCCIONES TRIGONOMETRICAS.",""
1 "AHORA, "+N$+"
1 "8";"SIGUIENTE"
1 "7";"ESTOY CARGANDO VIDEOTEST":
1 "7";"-> ";a$;
1 "6";"PULSA";
1 "6"''"IMPRIME MOVIMIENTOS DE TIPO...","IMPRIME MOVIMIENTOS > DE .....",
1 "5";"10 12 84 -30.000 GASOLINA.","15 1 85 85.000 CHEQUES"," 7 2 85 -320.000 SEGURO COCHE"," .......",,
1 "5";" DATA 1...6",''" TIPO 7...7",''" MOVIM 8..15",''" DESCR 16..26",
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "4";" DATA ";
1 "4";" ...y ahora un poco de diversion con dibujos trigonometricos !!!":
1 "4";" RESTOS 350.000"," INGRESOS 270.000"," FACT.COCHE 112.500"," FACT.TELEF 38.200"," .....",,,," TOTAL 695.000",
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "3";"1 5 10 15 20 25":
1 "3";" MOVIM ";
1 "29";"+x";
1 "29","28","11","-62","-11","34","-6","-60","6","23","11","-46","-11","25"
1 "23617",u:
1 "23617",Z:
1 "23295+I",
1 "2";"RADIANES = (GRADOS/180)*
1 "2";"GRADOS = (RADIANES/
1 "168-S*8+3":
1 "14";"+y";
1 "127-XL/2",
1 "10";"VIDEOBASIC":
1 "10";"OTRA VEZ !":
1 "10";"ERROR !";
1 "04AACT.?","<513","0;AACT.","#510","2Aact./mod./canc.","02C FIN ?","<913","2Cretorno menu"
1 "03@FIN ?","<613","2@NEXT I","02CVOLVER ","#81;","2CRETURN"
1 "03:REG>N","<61;","0;:BLANC","#510","02=IMPRIMIR","02>REGISTRO","#82;","2:IF REG>N THEN","2;PRINT ,,","2=IF REG<=N THEN","2>PRINT F$(I)"
1 "032FUERA","033LIM.?","<629","0;2MODIF","0;3VAL.","#520","22IF REG<4 THEN","23LET REG=4","026INICIAL.","027 CICLO","#82;","26FOR I=REG-3","27TO REG+3"
1 "02=ERROR ?","<913","2=verif. intro.","04?ROLL?","<513","0;?ROLL","#510","2?pag.adel./atras"
1 "027IMPRIME","028PAGINA","#923","27pagina pantalla","28puesta al dia","02:PREGUNTA","02;OPION ","#923","2:elige operac.","2;a ejecutar"
1 "021INICIAL.","022VARIABLES","#920","21num. registro ","22 etc.","024INICIAL.","025PANTALLA","#923","24datos cost.","25nomb.,arch.,dat"
1 "////////////////////////////////"'
1 "-23","55","23","1","9","-57","-9","57","9","-4","1","-11","1","11","-2","-40","11",
1 ","-","-","-","3/2*
1 ","-","+","-"
1 ","+","-","+","
1 "+094+068+012+000+000+020-018+000","+079+052+007+000","+130+052+002+000+000-008-080+000"
1 "+082+152+003+000","+105+142-000-006-057+000"
1 "+079+092+006+000","+105+086+000-034-058+000"
1 "+079+036+007+000","+130+036+002+000+000-008-080+000","
1 "+016+044-006+000+000+060+037+000","
1 "+013+112-008+000+000-092+004+000"
1 "*1 ","% "
1 ""G "";A","049GRD>RAD.","#813","2930
1 " TORPEDOS ------------ "," ------ DE PROFUNDIDAD"
1 " DIAGRAMA DE FLUJO DEL EDITOR "
1 VUELTA AL INICIO";
1 Tel.031-240.959
1 SOFTIDEA - (Como)
1 REPETIR";
1 PARA SALIR)":
1 INTRODUCCION";
1 EJERCICIOS";
1 EJERCICIO"
1 COPYRIGHT 1985
1 CARGO EL";
1 CARGAR EL VIDEOJUEGO";
1 AL BASIC ":
1 ** ** ** ***********************
1 ** ** ** **
1 * * * ***********************
1 Pon en marcha la grabadora
1 "' "
1 "'
1 **
1 ":
1 *********************** ** ** **
1 ***********************
1 *********************** * * *
1
1
1
1
1